Option Explicit
Sub K_Sample001()
    Dim I      As Long
    Dim J      As Long
    Dim myAr() As Long
    Dim b      As Variant
    '2}C
    ReDim myAr(1 To 10, 1 To 5)
    For I = 1 To 10
        For J = 1 To 5
            myAr(I, J) = I * J
        Next
    Next
    With WorksheetFunction
        'w
        Debug.Print .And(myAr)
        Debug.Print .AveDev(myAr)
        Debug.Print .Average(myAr)
        Debug.Print .Count(myAr)
        Debug.Print .CountA(myAr)
        Debug.Print .Covar(myAr, myAr)
        Debug.Print .Degrees(b)
        Debug.Print .DevSq(myAr)
        Debug.Print .Dollar(b)
        Debug.Print .Even(b)
        Debug.Print .Fact(b)
        Debug.Print .FTest(myAr, myAr)
        Debug.Print .GeoMean(myAr)
        Debug.Print .HarMean(myAr)
        Debug.Print .Intercept(myAr, myAr)
        Debug.Print .Kurt(myAr)
        Debug.Print .Large(myAr, 1)
        Debug.Print .Max(myAr)
        Debug.Print .Median(myAr)
        Debug.Print .Min(myAr)
        Debug.Print .Mode(myAr)
        Debug.Print .Or(myAr)
        Debug.Print .Pearson(myAr, myAr)
        Debug.Print .Percentile(myAr, 1)
        Debug.Print .PercentRank(myAr, 1)
        Debug.Print .Product(myAr)
        Debug.Print .Quartile(myAr, 1)
        Debug.Print .RSq(myAr, myAr)
        Debug.Print .Skew(myAr)
        Debug.Print .Slope(myAr, myAr)
        Debug.Print .Small(myAr, 1)
        Debug.Print .StDev(myAr)
        Debug.Print .StDevP(myAr)
        Debug.Print .Sum(myAr)
        Debug.Print .SumProduct(myAr, myAr)
        Debug.Print .SumSq(myAr)
        Debug.Print .SumX2MY2(myAr, myAr)
        Debug.Print .SumX2PY2(myAr, myAr)
        Debug.Print .SumXMY2(myAr, myAr)
        b = .Transpose(myAr)
        Debug.Print b(1, 1)
        Debug.Print .Var(myAr)
        Debug.Print .VarP(myAr)
        b = .Index(myAr, 2)
        Debug.Print b(2)
        Debug.Print .VLookup(2, myAr, 5, False)
        Debug.Print .HLookup(2, myAr, 10, False)
    End With
End Sub
